home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / match.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-04  |  10.2 KB  |  370 lines
  1. 10  CLEAR:KEY OFF:WIDTH 80:SCREEN 0,0,0:COLOR 3,0,0:LOCATE 1,1,0
  2. 110  FOR A=1 TO 9:ON KEY(A) GOSUB 410:KEY(A) ON:NEXT
  3. 120  KEY(10) ON:DEF SEG:POKE 106,0:ON KEY(10) GOSUB 3580:XLIN=1:XPOS=1
  4. 130  DEFINT A-C:DEFSTR P,Z:DIM A(20),B(40),PV(40),PZ(81),VL(81),TBL(1,50),PL(1),T(1),MATCH(1),KEEP(1,21)
  5. 140  PTR="$$##,###.##"
  6. 150  GOSUB 1140
  7. 160  GOSUB 420
  8. 170  COLOR 3,0:GOSUB 630
  9. 180  IF FLAG=2 THEN GOSUB 1750:GOTO 1360
  10. 190  IF FLAG=1 THEN GOTO 1940
  11. 200  GOTO 170
  12. 210  FOR A=1 TO 20
  13. 220   RANDOMIZE(VAL(RIGHT$(TIME$,2)))
  14. 230   A(A)=(RND*80):IF A(A)=0 THEN 230
  15. 240    FOR B=1 TO A-1
  16. 250     IF A(B)=A(A) THEN B=A:A=A-1
  17. 260    NEXT B
  18. 270   SC=FIX(RND*89)+10
  19. 280  NEXT A
  20. 290  B(0)=1
  21. 300  FOR A=1 TO 20
  22. 310   C=RND*40
  23. 320   RANDOMIZE(VAL(RIGHT$(TIME$,2)))
  24. 330   IF B(C)=0 THEN B(C)=A(A) ELSE 310
  25. 340   C=RND*40
  26. 350   IF B(C)=0 THEN B(C)=A(A) ELSE 340
  27. 360  NEXT A
  28. 370  FOR A=1 TO 40:READ PV(A):NEXT
  29. 380  FOR A=1 TO 80
  30. 390   READ PZ(A),VL(A)
  31. 400  NEXT A
  32. 410  RETURN
  33. 420  CLS:COLOR 4,0:LOCATE 1,3:PRINT"KEY"
  34. 430  FOR A=4 TO 74 STEP 15
  35. 440   LOCATE 1,A:PRINT STRING$(14,"THEN")"<0xCB!>"
  36. 450  NEXT A:LOCATE 1,78:PRINT"CLOSE"
  37. 460  FOR A=2 TO 15 STEP 2
  38. 470   FOR B=3 TO 74 STEP 15
  39. 480    LOCATE A,B:PRINT"OPEN";
  40. 490   NEXT B:LOCATE A,78:PRINT"OPEN":                                             LOCATE A+1,3:PRINT"TO"STRING$(15,"THEN")
  41. 500   FOR B=18 TO 74 STEP 15
  42. 510    LOCATE A+1,B:PRINT"TAB("STRING$(15,"THEN")
  43. 520   NEXT B:LOCATE A+1,78:PRINT"RANDOMIZE"
  44. 530  NEXT A
  45. 540  FOR B=3 TO 74 STEP 15
  46. 550   LOCATE 16,B:PRINT"OPEN";
  47. 560  NEXT B:LOCATE 16,78:PRINT"OPEN":                                            LOCATE A+1,3:PRINT"TO"STRING$(15,"THEN")
  48. 570  LOCATE 17,3:PRINT"SCREEN"
  49. 580  FOR A=4 TO 74 STEP 15
  50. 590   LOCATE 17,A:PRINT STRING$(14,"THEN")"LOCATE"
  51. 600  NEXT A:LOCATE 17,78:PRINT"LOAD"
  52. 610  LOCATE 25,25:COLOR 0,7:PRINT" Strike <F10> To Leave This Game ";:COLOR 3,0
  53. 620  RETURN
  54. 630  C=0
  55. 640  FOR A=2 TO 17 STEP 2
  56. 650   FOR B=2 TO 74 STEP 15
  57. 660    C=C+1:IF B(C)=0 THEN LOCATE A,B+2:PRINT SPC(14):GOTO 680
  58. 670    LOCATE A,B+2:COLOR 0,7:PRINT"      "PV(C)"      ";:COLOR 3,0
  59. 680   NEXT B
  60. 690  NEXT A
  61. 700  FOR X=20 TO 23:LOCATE X,1:PRINT SPC(79);:NEXT
  62. 710  HOLD=0
  63. 720  COLOR 15,0:LOCATE 20,23:PRINT PL(T)",  What Is Your FIRST Choice?    ";
  64. 730  GOSUB 920:IF A=0 THEN GOSUB 990:GOSUB 1110 ELSE 720
  65. 740  HOLD=GS
  66. 750  LOCATE 20,1:PRINT SPC(79)
  67. 760  COLOR 15,0:LOCATE 20,23:PRINT PL(T)",  What Is Your SECOND Choice?   ";
  68. 770  GOSUB 920:IF A=0 THEN GOSUB 990 ELSE 760
  69. 780  IF VL(B(HOLD))=-3 THEN SWAP HOLD,GS:GOTO 830
  70. 790  IF VL(B(GS))=-3 THEN 830
  71. 800  IF B(GS)=B(HOLD) THEN 830
  72. 810  LOCATE 20,23:PRINT"      SORRY "PL(T)", But No Match                ";
  73. 820  FOR X=1 TO 1500:NEXT:T=T(T):RETURN
  74. 830  IF VL(B(HOLD))=-2 THEN 1540
  75. 840  IF VL(B(HOLD))=-1 THEN 1420
  76. 850  TBL(T,Q(T))=B(HOLD)
  77. 860  B(GS)=0:B(HOLD)=0
  78. 870  LOCATE 20,22:PRINT"        ALLRIGHT, A Match !!";:PRINT SPC(25)
  79. 880  FOR A=1 TO 6:SOUND 2000,1:SOUND 1000,1:NEXT A
  80. 890  D=0:Q(T)=Q(T)+1
  81. 900  FOR A=0 TO Q(T):D=D+VL(TBL(T,A)):NEXT A
  82. 910  GOSUB 3320:GOTO 2470
  83. 920  GS=0
  84. 930  GOSUB 3380
  85. 940  FOR A=1 TO 40:IF P1=PV(A) THEN GS=A:A=0 ELSE NEXT:GOTO 970
  86. 950  IF GS=HOLD THEN 970
  87. 960  IF B(GS)<>0 THEN RETURN
  88. 970  LOCATE 20,23:PRINT"Invalid Choice. Please Try Again "PL(T);:PRINT SPC(4)
  89. 980  GOSUB 1850:LOCATE 20,10:PRINT SPC(60):RETURN
  90. 990  RW=(INT((GS-1)/5)+1)*2
  91. 1000  XX=36
  92. 1010  IF GS<36 THEN XX=31
  93. 1020  IF GS<31 THEN XX=26
  94. 1030  IF GS<26 THEN XX=21
  95. 1040  IF GS<21 THEN XX=16
  96. 1050  IF GS<16 THEN XX=11
  97. 1060  IF GS<11 THEN XX=6
  98. 1070  IF GS<6  THEN XX=1
  99. 1080  COL=(GS-XX)*15
  100. 1090  COLOR 11,0:LOCATE RW,COL+4:PRINT USING "&";PZ(B(GS));:COLOR 3,0
  101. 1100  RETURN
  102. 1110  IF VL(B(GS))<0 THEN 1130
  103. 1120  LOCATE 22,25:PRINT"        Worth ";:PRINT USING PTR;VL(B(GS))
  104. 1130  RETURN
  105. 1140  CLS:COLOR 15,0:LOCATE 2,27:PRINT"        M A T C H
  106. 1150  LOCATE 6,23:PRINT"Would You Like Instructions? <Y/N>":COLOR 3,0
  107. 1160  GOSUB 1270:IF Z="Y" OR Z="y" THEN GOSUB 2030:GOTO 1180
  108. 1170  IF Z<>"n" AND Z<>"N" THEN 1160
  109. 1180  LOCATE 10,25:PRINT"And Then Strike Enter Key"
  110. 1185  LOCATE 6,20:PRINT"Player #1, Please Enter Your First Name ";
  111. 1190  GOSUB 3670:PL(1)=ZA
  112. 1200  LOCATE 8,20:PRINT"Player #2, Please Enter Your First Name ";
  113. 1210  GOSUB 3670:PL(0)=ZA
  114. 1220  T(0)=1:T(1)=0
  115. 1230  LOCATE 10,20:PRINT"One Moment While I Generate A Game Board
  116. 1240  GOSUB 210
  117. 1250  RETURN
  118. 1260  LOCATE 25,27:COLOR 14,0:PRINT"Strike Any Key To Continue";:COLOR 3,0
  119. 1270  Z=INKEY$:IF Z="" THEN 1270 ELSE RETURN
  120. 1280  FOR A=1 TO 39
  121. 1290   IF B(A)=0 THEN 1330
  122. 1300   FOR B=A+1 TO 40
  123. 1310    IF B(A)=B(B) THEN 1350
  124. 1320   NEXT B
  125. 1330  NEXT A
  126. 1340  FLAG=1
  127. 1350  RETURN
  128. 1360  CLS:LOCATE 1,25:PRINT PL(T)" These Are Your Prizes
  129. 1370  GOSUB 1640
  130. 1380  LOCATE C+1,43:PRINT STRING$(12,"THEN")
  131. 1390  LOCATE C+2,20:PRINT"Grand Total Of":LOCATE C+2,44:PRINT USING PTR;D
  132. 1400  LOCATE 23,25:PRINT"Strike Any Key To Continue";
  133. 1410  GOSUB 1270:GOTO 1860
  134. 1420  B(GS)=0:B(HOLD)=0
  135. 1430  IF Q(T(T))=0 THEN LOCATE 23,23:PRINT PL(T(T))" Has No Prizes To Take ":         GOTO 900
  136. 1440  GOSUB 1850:CLS
  137. 1450  T=T(T):GOSUB 1640:T=T(T)
  138. 1460  LOCATE 21,23:PRINT"       Which Price Would You Like
  139. 1470  LOCATE 22,35:PRINT"To Take, "PL(T);
  140. 1480  GOSUB 3510:B=VAL(Z)
  141. 1490  IF B<0 OR B>Q(T(T))-1 THEN LOCATE 23,30:PRINT"Please Try Again "PL(T)"    ":FOR X=1 TO 2000:NEXT:LOCATE 23,10:PRINT SPC(60):GOTO 1480
  142. 1500  LOCATE 22,1:PRINT SPC(79);:LOCATE 24,1:PRINT SPC(79);
  143. 1510  TBL(T,Q(T))=TBL(T(T),B)
  144. 1520  TBL(T(T),B)=0:Q(T)=Q(T)+1
  145. 1530  GOTO 1620
  146. 1540  B(GS)=0:B(HOLD)=0
  147. 1550  IF Q(T)=0 THEN LOCATE 23,32:PRINT PL(T)" Has No Prizes To Lose ":GOTO 900
  148. 1560  GOSUB 1850:CLS:GOSUB 1640
  149. 1570  LOCATE 21,30:PRINT"Which Prize Would You Like
  150. 1580  LOCATE 22,35:PRINT"To Lose, "PL(T);
  151. 1590  GOSUB 3510:B=VAL(Z)
  152. 1600  IF B<0 OR B>Q(T)-1 THEN LOCATE 22,23:PRINT"    Please Try Again "PL(T)":FOR X=1 TO 2000:NEXT:LOCATE 22,10:PRINT SPC(60):GOTO 1520
  153. 1610  TBL(T(T),Q(T(T)))=TBL(T,B):TBL(T,B)=0:Q(T(T))=Q(T(T))+1
  154. 1620  B(GS)=0:B(HOLD)=0
  155. 1630  GOSUB 3320:GOTO 420
  156. 1640  LOCATE 2,20:PRINT"Prize                         Value
  157. 1650  LOCATE 3,20:PRINT STRING$(35,"THEN"):C=4:D=0
  158. 1660  FOR A=0 TO Q(T)-1
  159. 1670   C=C+1
  160. 1680   A$=SPACE$(18)
  161. 1690   LSET A$=PZ(TBL(T,A))
  162. 1700   LOCATE C,23:PRINT A;:PRINT USING "&";A$;
  163. 1710   PRINT USING PTR;VL(TBL(T,A))
  164. 1720   D=D+VL(TBL(T,A))
  165. 1730  NEXT A
  166. 1740  RETURN
  167. 1750  C=0
  168. 1760  FOR A=2 TO 17 STEP 2
  169. 1770   FOR B=0 TO 72 STEP 15
  170. 1780    C=C+1:IF B(C)=0 THEN 1800
  171. 1790    LOCATE A,B+4:PRINT USING "&";PZ(B(C))
  172. 1800   NEXT B
  173. 1810  NEXT A
  174. 1820  LOCATE 23,1:PRINT SPC(79);
  175. 1830  LOCATE 23,24:PRINT"Strike Any Key To See Your Prizes"
  176. 1840  GOTO 1270
  177. 1850  FOR A=1 TO 1500:NEXT A:RETURN
  178. 1860  GOSUB 1850:CLS
  179. 1870  MATCH(T)=MATCH(T)+1
  180. 1880  LOCATE 1,35:PRINT"The Score Is
  181. 1890  LOCATE 2,25:PRINT PL(0)" Has Won "MATCH(0)
  182. 1900  LOCATE 3,25:PRINT PL(1)" Has Won "MATCH(1)
  183. 1910  LOCATE 8,35:COLOR 14,0
  184. 1920  IF MATCH(0)=2 THEN PRINT PL(0)" Wins !!!!":GOTO 2240
  185. 1930  IF MATCH(1)=2 THEN PRINT PL(1)" Wins !!!!":GOTO 2240
  186. 1940  FOR A=1 TO 40:B(A)=0:NEXT
  187. 1950  FOR A=0 TO Q(T)-1
  188. 1960   KEEP(T,A+1)=TBL(T,A):TBL(T,A)=0
  189. 1970  NEXT:KEEP(T,0)=Q(T)-1
  190. 1980  Q(T)=0:Q(T(T))=0
  191. 1990  TBL(T(T),0)=0
  192. 2000  FLAG=0
  193. 2010  LOCATE 23,20:PRINT"One Moment While I Generate A New Game Board
  194. 2020  RESTORE:GOSUB 210:GOSUB 1850:GOTO 160
  195. 2030  CLS
  196. 2040  FOR A=1 TO 23
  197. 2050   LOCATE A,1:PRINT"CALL";:LOCATE A,80:PRINT"CALL";
  198. 2060  NEXT
  199. 2070  LOCATE 1,1:PRINT"ERR"STRING$(78,"THEN")"OPTION";
  200. 2080  LOCATE 23,1:PRINT"ERL"STRING$(78,"THEN")"SAVE";
  201. 2090  LOCATE 3,35:COLOR 15,0:PRINT"M A T C H":COLOR 3,0
  202. 2100  LOCATE 5,19:PRINT"In this game, you will try to  match  prizes
  203. 2110  LOCATE 6,19:PRINT"on the game board before your  opponent does.
  204. 2120  LOCATE 8,19:PRINT"When you match a prize, you will be asked to
  205. 2130  LOCATE 9,19:PRINT"guess a number between 10 AND 99.
  206. 2140  LOCATE 10,19:PRINT"If you guess the secret number then You will
  207. 2150  LOCATE 11,19:PRINT"win the match.
  208. 2160  LOCATE 12,19:PRINT"I will tell you if you are to HIGH or to LOW.
  209. 2170  LOCATE 13,19:PRINT"You must win 2 matches to win the game.
  210. 2180  LOCATE 15,19:PRINT"If you do not guess the secret number before
  211. 2190  LOCATE 16,19:PRINT"all  possible  matches  have  been made then
  212. 2200  LOCATE 17,19:PRINT"the match  continues with a new  game  board
  213. 2210  LOCATE 18,19:PRINT"and a new secret number.
  214. 2220  LOCATE 20,35:PRINT"GOOD LUCK !!!
  215. 2230  GOSUB 1260:CLS:RETURN
  216. 2240  GOSUB 2470:CLS:COLOR 3,0:GOSUB 2360
  217. 2250  FOR A=0 TO KEEP(T,0)
  218. 2260   TBL(T,A)=KEEP(T,A+1)
  219. 2270  NEXT
  220. 2280  Q(T)=KEEP(T,0)+1
  221. 2290  GOSUB 2380
  222. 2300  LOCATE C+2,48:PRINT STRING$(12,"THEN")
  223. 2310  LOCATE C+3,25:PRINT"Grand Total Of":LOCATE C+3,48:PRINT USING PTR;D
  224. 2320  LOCATE 23,25:PRINT"Would You Like To Play Again? <Y/N>";
  225. 2330  GOSUB 1270:IF Z="Y" OR Z="y" THEN RUN ELSE IF Z<>"N" AND Z<>"n" THEN 2330
  226. 2340  CLS:LOCATE 12,25:PRINT"Thank You For Playing Match
  227. 2350  RUN"menu
  228. 2360  LOCATE 2,25:PRINT"Prize                         Value
  229. 2370  LOCATE 3,25:PRINT STRING$(35,"THEN"):C=4:D=0
  230. 2380  FOR A=0 TO Q(T)-1
  231. 2390     C=C+1
  232. 2400     A$=SPACE$(23)
  233. 2410     LSET A$=PZ(TBL(T,A))
  234. 2420     LOCATE C,25:PRINT USING "&";A$;
  235. 2430     PRINT USING PTR;VL(TBL(T,A))
  236. 2440     D=D+VL(TBL(T,A))
  237. 2450  NEXT A
  238. 2460  RETURN
  239. 2470  '
  240. 2480  FOR X=1 TO 2000:NEXT:RETURN
  241. 2490  DATA A1,B1,C1,D1,E1,A2,B2,C2,D2,E2,A3,B3,C3,D3,E3,A4,B4,C4,D4,E4
  242. 2500  DATA A5,B5,C5,D5,E5,A6,B6,C6,D6,E6,A7,B7,C7,D7,E7,A8,B8,C8,D8,E8
  243. 2520  DATA "   COLOR TV   ",650
  244. 2530  DATA "  WINNABAGO   ",13540
  245. 2540  DATA " SWISS  WATCH ",250
  246. 2550  DATA "  $5000 CASH  ",5000
  247. 2560  DATA "   $1 CASH    ",1
  248. 2570  DATA "   IBM P.C.   ",2300
  249. 2580  DATA " IBM SOFTWARE ",49.95
  250. 2590  DATA "TRIP TO MEXICO",3000
  251. 2600  DATA "TRIP TO  JAPAN",6000
  252. 2610  DATA "  MINK  COAT  ",2300
  253. 2620  DATA "10 SPEED  BIKE",135
  254. 2630  DATA "BOX OF BANANAS",5
  255. 2640  DATA "  SPEED BOAT  ",14000
  256. 2650  DATA "  NEW  TIRES  ",150
  257. 2660  DATA " DISNEY  TRIP ",3000
  258. 2670  DATA "  SNOWMOBILE  ",3200
  259. 2680  DATA "MINOLTA CAMERA",550
  260. 2690  DATA "   BETAMAX    ",1150
  261. 2700  DATA "SEWING MACHINE",250
  262. 2710  DATA "  BRASS  BED  ",800
  263. 2720  DATA "  JACUZZI SPA ",4300
  264. 2730  DATA "  DISHWASHER  ",320
  265. 2740  DATA "    WASHER    ",340
  266. 2750  DATA "    DRYER     ",320
  267. 2760  DATA "   TAKE ONE   ",-1
  268. 2770  DATA "   LOSE ONE   ",-2
  269. 2780  DATA "  WILD  CARD  ",-3
  270. 2790  DATA "   B&W  T-V   ",95
  271. 2800  DATA "  VOLKSWAGEN  ",5500
  272. 2810  DATA " APPLE  CIDER ",3.98
  273. 2820  DATA " JUG OF  MILK ",2.05
  274. 2830  DATA "  LAWN MOWER  ",230
  275. 2840  DATA "  $500  CASH  ",500
  276. 2850  DATA "  DISK DRIVE  ",350
  277. 2860  DATA "ENCYCLOPEDIAS ",650
  278. 2870  DATA "   USED CAR   ",20
  279. 2880  DATA "    TOUPEE    ",29
  280. 2890  DATA "  BLOND  WIG  ",50
  281. 2900  DATA "CASSETTE  TAPE",65
  282. 2910  DATA "    STEREO    ",1000
  283. 2920  DATA " TURKEY  FARM ",1200
  284. 2930  DATA "  GOLD RING   ",300
  285. 2940  DATA " DIAMOND RING ",2300
  286. 2950  DATA "  TIRED OVEN  ",25
  287. 2960  DATA "  PATIO  SET  ",490
  288. 2970  DATA " BEDROOM  SET ",900
  289. 2980  DATA "  SAIL  BOAT  ",6000
  290. 2990  DATA "  BRICK HOME  ",55000
  291. 3000  DATA " MOBILE  HOME ",21000
  292. 3010  DATA "SHRIMP  DINNER",25
  293. 3020  DATA "  SURF BOARD  ",250
  294. 3030  DATA "  GOLF CLUBS  ",550
  295. 3040  DATA "SWIMMING  POOL",10000
  296. 3050  DATA "  BRIEF CASE  ",65
  297. 3060  DATA " NEW WARDROBE ",800
  298. 3070  DATA " SILK  SHEETS ",125
  299. 3080  DATA "  WATER  BED  ",450
  300. 3090  DATA "  WATER SKIS  ",120
  301. 3100  DATA "OUNCE OF  GOLD",500
  302. 3110  DATA " BAR OF  SOAP ",.25
  303. 3120  DATA " PET SQURRIEL ",75
  304. 3130  DATA " OCEAN CRUISE ",5400
  305. 3140  DATA " ROLEX CAMERA ",90
  306. 3150  DATA "SNORKEL & FINS",65
  307. 3160  DATA "LEATHER WALLET",10
  308. 3170  DATA "MX-80  PRINTER",550
  309. 3180  DATA "BYTE  MAGAZINE",3
  310. 3190  DATA " MOTOR  CYCLE ",3000
  311. 3200  DATA "  MINI  BIKE  ",150
  312. 3210  DATA "    MOPED     ",450
  313. 3220  DATA " SILVER  BOWL ",250
  314. 3230  DATA "  TV  DINNER  ",1
  315. 3240  DATA " FROZEN PIZZA ",2
  316. 3250  DATA " AM-FM  RADIO ",25
  317. 3260  DATA "   CB-RADIO   ",140
  318. 3270  DATA " TAMPA NUGGET ",.75
  319. 3280  DATA "   BED LAMP   ",15
  320. 3290  DATA " 6 PACK/COORS ",3.15
  321. 3300  DATA "   SWING SET  ",230
  322. 3310  DATA "   SKILL SAW  ",55
  323. 3320  LOCATE 22,3:PRINT PL(T)", For ";:PRINT USING PTR;D;:PRINT" In Prizes, Guess My Secret Number <10 to 99>";
  324. 3330  GOSUB 3380
  325. 3340  IF GS=SC THEN PRINT"Congradulations "PL(T)" You WIN !!!":FLAG=2:FOR X=1 TO 5:SOUND 500,1:SOUND 200,1:SOUND 100,2:NEXT
  326. 3350  IF GS<SC THEN PRINT"   Sorry, Too Low. But Still Your Turn.":SOUND 37,15
  327. 3360  IF GS>SC THEN PRINT"   Sorry, Too High. But Still Your Turn.":SOUND 2000,15
  328. 3370  GOSUB 1280:GOSUB 1850:RETURN
  329. 3380  IF INKEY$<>"" THEN 3380
  330. 3390  P1=""
  331. 3400  P=INKEY$:IF P=CHR$(13) THEN 3400
  332. 3410  IF P=CHR$(8) THEN 3470
  333. 3420  IF LEN(P)>1 THEN IF RIGHT$(P,1)=CHR$(75) THEN 3450 ELSE 3400
  334. 3430  IF P<"a" OR P>"z" THEN 3450
  335. 3440  P=CHR$(ASC(P)-32)
  336. 3450  P1=P1+P:PRINT P;:IF LEN(P1)<2 THEN 3400
  337. 3460  GS=VAL(P1):GOTO 3490
  338. 3470  IF LEN(P1)=0 THEN 3400
  339. 3480  PRINT CHR$(29)CHR$(32)CHR$(29);:P1=LEFT$(P1,LEN(P1)-1):GOTO 3400
  340. 3490  LOCATE 23,20,0
  341. 3500  RETURN
  342. 3510  Z1=""
  343. 3520  LOCATE 23,30:PRINT"Enter Choice Number ";
  344. 3530  IF INKEY$<>"" THEN 3530
  345. 3540  Z=INKEY$:IF Z="" THEN 3540
  346. 3550  IF Z=CHR$(13) THEN 3540
  347. 3560  IF Z=CHR$(8) THEN 3540
  348. 3570  PRINT Z;:RETURN
  349. 3580  KEY(10) OFF:XLIN=CSRLIN:XPOS=POS(0)
  350. 3590  LOCATE 25,22:COLOR 15,0:PRINT"Do You Wish To Leave This Game? <Y/N>";:COLOR 3,0
  351. 3600  Z=INKEY$:IF Z="" THEN 3600
  352. 3610  IF Z="Y" OR Z="y" THEN END
  353. 3620  IF Z="N" OR Z="n" THEN 3640
  354. 3630  GOTO 3600
  355. 3640  LOCATE 25,1:PRINT SPC(78);
  356. 3650  LOCATE 25,25:COLOR 0,7:PRINT" Strike <F10> To Leave This Game ";:COLOR 3,0
  357. 3660  LOCATE XLIN,XPOS:KEY(10) ON:RETURN
  358. 3670  ZH=""
  359. 3680  DEF SEG:POKE 106,0:IF INKEY$<>"" THEN 3680
  360. 3690  ZI=INKEY$:IF ZI="" THEN 3690
  361. 3700  IF ZI=CHR$(13) THEN ZA=SPACE$(8):LSET ZA=ZH:RETURN
  362. 3710  IF ZI=CHR$(8) THEN 3770
  363. 3720  IF LEN(ZI)>1 THEN IF RIGHT$(ZI,1)=CHR$(75) THEN 3770 ELSE 3680
  364. 3730  IF LEN(ZH)>7 THEN 3690
  365. 3740  IF ZI<"a" OR ZI>"z" THEN 3760
  366. 3750  ZI=CHR$(ASC(ZI)-32)
  367. 3760  ZH=ZH+ZI:PRINT ZI;:GOTO 3690
  368. 3770  IF LEN(ZH)<1 THEN 3690
  369. 3780  PRINT CHR$(29)" "CHR$(29);:ZH=LEFT$(ZH,LEN(ZH)-1):GOTO 3690
  370.